home *** CD-ROM | disk | FTP | other *** search
/ Delphi Developer's Kit 1996 / Delphi Developer's Kit 1996.iso / power / sweep11 / grid.dfm / grid.txt next >
Encoding:
Text File  |  1995-12-22  |  3.8 KB  |  182 lines

  1. object SweepForm: TSweepForm
  2.   Left = 312
  3.   Top = 140
  4.   BorderIcons = [biSystemMenu, biMinimize]
  5.   BorderStyle = bsSingle
  6.   Caption = 'MineSweeper'
  7.   ClientHeight = 302
  8.   ClientWidth = 281
  9.   Font.Color = clFuchsia
  10.   Font.Height = -13
  11.   Font.Name = 'System'
  12.   Font.Style = [fsBold]
  13.   Icon.Data = {<image000.ico>}
  14.   Menu = SweepMenu
  15.   PixelsPerInch = 96
  16.   PrintScale = poPrintToFit
  17.   OnCreate = FormCreate
  18.   OnDestroy = FormDestroy
  19.   TextHeight = 16
  20.   object AllButtons: TImage
  21.     Left = 202
  22.     Top = 2
  23.     Width = 16
  24.     Height = 256
  25.     AutoSize = True
  26.     Picture.Data = {<image001.bmp>}
  27.     Visible = False
  28.   end
  29.   object FACES: TImage
  30.     Left = 222
  31.     Top = 4
  32.     Width = 24
  33.     Height = 120
  34.     AutoSize = True
  35.     Picture.Data = {<image002.bmp>}
  36.     Visible = False
  37.   end
  38.   object LEDS: TImage
  39.     Left = 183
  40.     Top = 2
  41.     Width = 13
  42.     Height = 276
  43.     AutoSize = True
  44.     Picture.Data = {<image003.bmp>}
  45.     Visible = False
  46.   end
  47.   object FormPanel: TPanel
  48.     Left = 0
  49.     Top = 0
  50.     Width = 160
  51.     Height = 208
  52.     BevelWidth = 3
  53.     TabOrder = 1
  54.     object ScorePanel: TPanel
  55.       Left = 13
  56.       Top = 11
  57.       Width = 134
  58.       Height = 37
  59.       BevelOuter = bvLowered
  60.       BevelWidth = 2
  61.       TabOrder = 0
  62.       object FacePictureBox: TImage
  63.         Left = 56
  64.         Top = 6
  65.         Width = 24
  66.         Height = 24
  67.         OnClick = FacePictureBoxClick
  68.         OnMouseDown = FacePictureBoxMouseDown
  69.         OnMouseMove = FacePictureBoxMouseMove
  70.         OnMouseUp = FacePictureBoxMouseUp
  71.       end
  72.       object TimePanel: TPanel
  73.         Left = 87
  74.         Top = 6
  75.         Width = 41
  76.         Height = 25
  77.         BevelOuter = bvLowered
  78.         TabOrder = 0
  79.         object TimePicture: TImage
  80.           Left = 1
  81.           Top = 1
  82.           Width = 39
  83.           Height = 23
  84.         end
  85.       end
  86.       object MinePanel: TPanel
  87.         Left = 5
  88.         Top = 6
  89.         Width = 41
  90.         Height = 24
  91.         BevelOuter = bvLowered
  92.         TabOrder = 1
  93.         object MinesPicture: TImage
  94.           Left = 1
  95.           Top = 0
  96.           Width = 39
  97.           Height = 23
  98.         end
  99.       end
  100.     end
  101.     object GamePanel: TPanel
  102.       Left = 11
  103.       Top = 59
  104.       Width = 138
  105.       Height = 137
  106.       BevelOuter = bvLowered
  107.       BevelWidth = 3
  108.       TabOrder = 1
  109.     end
  110.   end
  111.   object GameGrid: TDrawGrid
  112.     Left = 14
  113.     Top = 62
  114.     Width = 128
  115.     Height = 128
  116.     BorderStyle = bsNone
  117.     Color = clBtnFace
  118.     ColCount = 8
  119.     DefaultColWidth = 16
  120.     DefaultRowHeight = 16
  121.     DefaultDrawing = False
  122.     DragCursor = crArrow
  123.     FixedCols = 0
  124.     FixedRows = 0
  125.     GridLineWidth = 0
  126.     Options = [goFixedVertLine, goFixedHorzLine]
  127.     RowCount = 8
  128.     ScrollBars = ssNone
  129.     TabOrder = 0
  130.     OnDrawCell = PaintCell
  131.     OnMouseDown = GameGridMouseDown
  132.     OnMouseMove = GameGridMouseMove
  133.     OnMouseUp = GameGridMouseUp
  134.   end
  135.   object SweepMenu: TMainMenu
  136.     Left = 219
  137.     Top = 216
  138.     object Game1: TMenuItem
  139.       Caption = '&Game'
  140.       object New2: TMenuItem
  141.         Caption = '&New'
  142.         OnClick = New2Click
  143.         ShortCutText = 'F2'
  144.       end
  145.       object N1: TMenuItem
  146.         Caption = '-'
  147.       end
  148.       object Beginner1: TMenuItem
  149.         Caption = '&Beginner'
  150.         OnClick = Beginner1Click
  151.       end
  152.       object Intermediate1: TMenuItem
  153.         Caption = '&Intermediate'
  154.         OnClick = Intermediate1Click
  155.       end
  156.       object Expert1: TMenuItem
  157.         Caption = '&Expert'
  158.         OnClick = Expert1Click
  159.       end
  160.       object N4: TMenuItem
  161.         Caption = '-'
  162.       end
  163.       object Exit1: TMenuItem
  164.         Caption = 'E&xit'
  165.         OnClick = Exit1Click
  166.       end
  167.     end
  168.     object new1: TMenuItem
  169.       Caption = '&Help'
  170.       object About1: TMenuItem
  171.         Caption = '&About'
  172.         OnClick = About1Click
  173.       end
  174.     end
  175.   end
  176.   object GameTimer: TTimer
  177.     OnTimer = GameTimerTimer
  178.     Left = 220
  179.     Top = 148
  180.   end
  181. end
  182.